All Data clusters (Deep learning, DEL (Deep Embedding Clustering layer))

DEC_Embedding = read.csv('/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/DEC_Embedding.csv')
head(DEC_Embedding)

resultft_DEL_all <- read.csv('/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/resultft_DEL_all.csv')
# replacing the empty space "" values with no as done in the main analysis file
resultft_DEL_all$farmlive[resultft_DEL_all$farmlive == ""] <- NA
resultft_DEL_all <-  resultft_DEL_all %>% replace_na (list(farmlive = 'no'))
#tsne_converted_food$cl_DEL <- factor(resultft_DEL_all$cluster)
#ggplot(tsne_converted_food, aes(x=X, y=Y, color=cl_DEL)) + geom_point()
resultft_DEL_all$cluster <- as.factor(resultft_DEL_all$cluster)
dist_plot_clust <-function(original_data, selected_variable){
  selected_variable <- enquo(selected_variable)
  ggplot(original_data, aes(UQ(selected_variable))) + geom_density(aes(fill = factor(cluster)), alpha=0.8) +
    labs(title = "Density plot",
         subtitle="sIgE_f1 of persons Grouped by Clusters",
         caption="Source: Source: results of Hierarchical clustering with tree-based distance and distance d1",
         x="sIgE_f1",
         fill="# Clusters")
} 
dist_plot_clust(original_data = resultft_DEL_all, selected_variable = age)

Density plot shoiwing the age distribution for each cluster

resultft_DEL_all$cluster <- as.factor(resultft_DEL_all$cluster)
age_g <- ggplot(resultft_DEL_all, aes(sIgE_f3))
age_p <- age_g + geom_density(aes(fill=factor(cluster)), alpha=0.8) +
    labs(title="Density plot",
         subtitle="sIgE_f1 of persons Grouped by Clusters",
         caption="Source: Source: results of Hierarchical clustering with tree-based distance and distance d1",
         x="sIgE_f1",
         fill="# Clusters")
ggplotly(age_p)
g <- ggplot(resultft_DEL_all, aes(bmi2)) + scale_fill_brewer(palette = "Spectral")
s <- g + geom_histogram(aes(fill=factor(cluster)), 
                   bins=5, 
                   col="black", 
                   size=.1) +   # change number of bins
  labs(title="Histogram with Fixed Bins", 
       subtitle="Age across different clusters",
       x="Age",
         fill="# Clusters") 
ggplotly(s)
table_uft_DEL_all <- tableby(cluster ~ ., data = as.list(resultft_DEL_all))
summary(table_uft_DEL_all, title = "Charachtaristcs of Clusters")

Table: Charachtaristcs of Clusters
0 (N=526) 1 (N=328) 2 (N=910) 3 (N=108) Total (N=1872) p value
sIgE_f1 < 0.001
   Mean (SD) 0.030 (0.122) 0.068 (0.493) 0.000 (0.000) 1.076 (7.174) 0.082 (1.747)
   Range 0.000 - 1.060 0.000 - 8.179 0.000 - 0.000 0.000 - 73.692 0.000 - 73.692
sIgE_f2 < 0.001
   Mean (SD) 0.038 (0.138) 0.082 (0.364) 0.000 (0.000) 0.610 (2.148) 0.060 (0.558)
   Range 0.000 - 1.091 0.000 - 3.807 0.000 - 0.000 0.000 - 13.623 0.000 - 13.623
sIgE_f3 < 0.001
   Mean (SD) 0.004 (0.013) 0.008 (0.022) 0.000 (0.000) 0.113 (0.261) 0.009 (0.069)
   Range 0.000 - 0.080 0.000 - 0.137 0.000 - 0.000 0.000 - 1.332 0.000 - 1.332
sIgE_f4 < 0.001
   Mean (SD) 0.018 (0.095) 0.093 (0.379) 0.000 (0.000) 0.886 (1.944) 0.073 (0.534)
   Range 0.000 - 1.280 0.000 - 4.347 0.000 - 0.000 0.000 - 12.512 0.000 - 12.512
sIgE_f13 < 0.001
   Mean (SD) 0.030 (0.091) 0.220 (0.759) 0.000 (0.001) 4.809 (19.740) 0.324 (4.861)
   Range 0.000 - 0.927 0.000 - 11.866 0.000 - 0.020 0.000 - 149.746 0.000 - 149.746
sIgE_f14 < 0.001
   Mean (SD) 0.004 (0.019) 0.033 (0.125) 0.000 (0.000) 0.684 (1.847) 0.046 (0.472)
   Range 0.000 - 0.310 0.000 - 1.086 0.000 - 0.000 0.000 - 12.386 0.000 - 12.386
sIgE_f17 < 0.001
   Mean (SD) 0.312 (0.873) 2.484 (3.286) 0.000 (0.013) 22.025 (21.996) 1.794 (7.461)
   Range 0.000 - 11.197 0.000 - 13.628 0.000 - 0.398 0.000 - 111.259 0.000 - 111.259
sIgE_f18 < 0.001
   Mean (SD) 0.017 (0.168) 0.017 (0.039) 0.001 (0.025) 0.579 (4.510) 0.042 (1.091)
   Range 0.000 - 2.901 0.000 - 0.384 0.000 - 0.686 0.000 - 46.879 0.000 - 46.879
sIgE_f20 < 0.001
   Mean (SD) 0.011 (0.027) 0.094 (0.142) 0.000 (0.001) 1.106 (1.703) 0.083 (0.485)
   Range 0.000 - 0.193 0.000 - 0.915 0.000 - 0.015 0.000 - 9.959 0.000 - 9.959
sIgE_f36 < 0.001
   Mean (SD) 0.011 (0.025) 0.067 (0.129) 0.000 (0.002) 0.412 (1.090) 0.039 (0.283)
   Range 0.000 - 0.225 0.000 - 1.051 0.000 - 0.045 0.000 - 7.754 0.000 - 7.754
gender2 < 0.001
   females 329 (62.5%) 185 (56.4%) 453 (49.8%) 55 (50.9%) 1022 (54.6%)
   males 197 (37.5%) 143 (43.6%) 457 (50.2%) 53 (49.1%) 850 (45.4%)
age < 0.001
   Mean (SD) 47.196 (15.214) 48.255 (15.130) 51.199 (15.617) 41.367 (14.267) 48.991 (15.551)
   Range 18.146 - 76.877 19.058 - 78.075 18.875 - 77.746 19.415 - 77.130 18.146 - 78.075
bmi2 < 0.001
   Mean (SD) 27.698 (3.266) 30.328 (6.497) 24.411 (2.776) 26.762 (4.942) 26.507 (4.540)
   Range 18.904 - 34.816 18.290 - 50.058 16.975 - 31.556 17.915 - 38.955 16.975 - 50.058
farmlive
    0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%)
   no 460 (87.5%) 292 (89.0%) 789 (86.7%) 107 (99.1%) 1648 (88.0%)
   yes 66 (12.5%) 36 (11.0%) 121 (13.3%) 1 (0.9%) 224 (12.0%)
family_allergy_hist < 0.001
   no 229 (43.5%) 132 (40.2%) 633 (69.6%) 28 (25.9%) 1022 (54.6%)
   yes 297 (56.5%) 196 (59.8%) 277 (30.4%) 80 (74.1%) 850 (45.4%)
# adding the id variable 
#result_food_uft_DEL_k$ID <- food_data_id$ID 
#write.csv(result_food_uft_DEL_k, "/Users/xbasra/Documents/Data/Clustering_Food_Alergies/CsvData/result_food_uft_DEL_k.csv")

Charachtiristic Analysis

resultft_DEL_all$cluster <- as.factor(resultft_DEL_all$cluster)
catdes(resultft_DEL_all, 16)

Random Data clusters with DEL (Deep Embedding Clustering layer)

#result_rand_uft_DEL_k <- read.csv("/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/result_rand_food_uft_DEL_k.csv")
result_rand_uft_DEL_k <- read.csv("/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/result_rand_uft_DEL_k.csv")
result_rand_uft_DEL_k$farmlive[result_rand_uft_DEL_k$farmlive == ""] <- NA
result_rand_uft_DEL_k <-  result_rand_uft_DEL_k %>% replace_na (list(farmlive = 'no'))
table_rand_uft_DEL_k <- tableby(cluster ~ ., data = as.list(result_rand_uft_DEL_k))
summary(table_rand_uft_DEL_k, title = "Charachtaristcs of Clusters")

Table: Charachtaristcs of Clusters
0 (N=285) 1 (N=472) 2 (N=110) 3 (N=236) Total (N=1103) p value
sIgE_f1 < 0.001
   Mean (SD) 0.001 (0.009) 0.000 (0.000) 0.067 (0.291) 0.044 (0.149) 0.016 (0.117)
   Range 0.000 - 0.092 0.000 - 0.000 0.000 - 2.845 0.000 - 1.032 0.000 - 2.845
sIgE_f2 < 0.001
   Mean (SD) 0.009 (0.066) 0.000 (0.000) 0.186 (0.829) 0.042 (0.148) 0.030 (0.277)
   Range 0.000 - 0.640 0.000 - 0.000 0.000 - 6.849 0.000 - 1.091 0.000 - 6.849
sIgE_f3 < 0.001
   Mean (SD) 0.001 (0.006) 0.000 (0.000) 0.016 (0.042) 0.006 (0.017) 0.003 (0.016)
   Range 0.000 - 0.045 0.000 - 0.000 0.000 - 0.213 0.000 - 0.080 0.000 - 0.213
sIgE_f4 < 0.001
   Mean (SD) 0.005 (0.076) 0.000 (0.000) 0.238 (0.945) 0.048 (0.222) 0.035 (0.324)
   Range 0.000 - 1.280 0.000 - 0.000 0.000 - 8.417 0.000 - 2.543 0.000 - 8.417
sIgE_f13 0.002
   Mean (SD) 0.017 (0.077) 0.002 (0.030) 1.591 (12.755) 0.107 (0.312) 0.187 (4.042)
   Range 0.000 - 0.800 0.000 - 0.642 0.000 - 133.659 0.000 - 1.957 0.000 - 133.659
sIgE_f14 < 0.001
   Mean (SD) 0.000 (0.003) 0.000 (0.000) 0.203 (0.946) 0.020 (0.092) 0.025 (0.306)
   Range 0.000 - 0.040 0.000 - 0.000 0.000 - 8.505 0.000 - 0.833 0.000 - 8.505
sIgE_f17 < 0.001
   Mean (SD) 0.267 (0.781) 0.007 (0.066) 9.076 (15.899) 0.921 (2.133) 1.174 (5.760)
   Range 0.000 - 4.561 0.000 - 1.014 0.000 - 76.467 0.000 - 11.197 0.000 - 76.467
sIgE_f18 0.012
   Mean (SD) 0.005 (0.042) 0.001 (0.015) 0.477 (4.469) 0.026 (0.219) 0.055 (1.416)
   Range 0.000 - 0.686 0.000 - 0.322 0.000 - 46.879 0.000 - 2.901 0.000 - 46.879
sIgE_f20 < 0.001
   Mean (SD) 0.010 (0.034) 0.000 (0.004) 0.399 (1.057) 0.043 (0.117) 0.052 (0.357)
   Range 0.000 - 0.272 0.000 - 0.057 0.000 - 9.959 0.000 - 0.915 0.000 - 9.959
sIgE_f36 < 0.001
   Mean (SD) 0.009 (0.026) 0.001 (0.005) 0.163 (0.763) 0.036 (0.112) 0.027 (0.250)
   Range 0.000 - 0.235 0.000 - 0.067 0.000 - 7.754 0.000 - 1.051 0.000 - 7.754
gender2 0.229
   females 150 (52.6%) 263 (55.7%) 58 (52.7%) 112 (47.5%) 583 (52.9%)
   males 135 (47.4%) 209 (44.3%) 52 (47.3%) 124 (52.5%) 520 (47.1%)
age 0.001
   Mean (SD) 49.396 (14.935) 51.639 (15.931) 45.611 (14.833) 51.412 (14.636) 50.410 (15.390)
   Range 18.146 - 77.746 18.875 - 77.259 20.867 - 77.130 18.379 - 76.628 18.146 - 77.746
bmi2 < 0.001
   Mean (SD) 26.126 (2.338) 23.553 (2.460) 31.668 (6.216) 28.599 (3.067) 26.107 (4.127)
   Range 19.223 - 31.644 16.975 - 29.835 18.939 - 44.816 19.818 - 36.523 16.975 - 44.816
farmlive
    0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%)
   no 252 (88.4%) 382 (80.9%) 107 (97.3%) 219 (92.8%) 960 (87.0%)
   yes 33 (11.6%) 90 (19.1%) 3 (2.7%) 17 (7.2%) 143 (13.0%)
family_allergy_hist < 0.001
   no 164 (57.5%) 361 (76.5%) 38 (34.5%) 132 (55.9%) 695 (63.0%)
   yes 121 (42.5%) 111 (23.5%) 72 (65.5%) 104 (44.1%) 408 (37.0%)
# adding the id variable 
#result_food_uft_DEL_k$ID <- food_data_id$ID 
#write.csv(result_food_uft_DEL_k, "/Users/xbasra/Documents/Data/Clustering_Food_Alergies/CsvData/result_food_uft_DEL_k.csv")

Charachtiristic Analysis

result_rand_uft_DEL_k$cluster <- as.factor(result_rand_uft_DEL_k$cluster)
#result_food_uft_DEL_k <- result_food_uft_DEL_k[-c(1,2,20)]
catdes(result_rand_uft_DEL_k, 16)

With asthma and Rhinitis Data clusters with DEL (Deep Embedding Clustering layer)

result_as_rh_uft_DEL <- read.csv('/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/result_as_rh_uft_DEL.csv')
result_as_rh_uft_DEL$farmlive[result_as_rh_uft_DEL$farmlive == ""] <- NA
result_as_rh_uft_DEL <-  result_as_rh_uft_DEL %>% replace_na (list(farmlive = 'no'))
table_as_rh_uft_DEL <- tableby(cluster ~ ., data = as.list(result_as_rh_uft_DEL))
summary(table_as_rh_uft_DEL, title = "Charachtaristcs of Clusters")

Table: Charachtaristcs of Clusters
0 (N=708) 1 (N=31) 2 (N=269) 3 (N=70) Total (N=1078) p value
sIgE_f1 < 0.001
   Mean (SD) 0.008 (0.070) 0.527 (1.012) 0.088 (0.546) 1.446 (8.885) 0.136 (2.300)
   Range 0.000 - 1.060 0.010 - 4.695 0.000 - 8.179 0.000 - 73.692 0.000 - 73.692
sIgE_f2 < 0.001
   Mean (SD) 0.004 (0.035) 2.043 (2.909) 0.056 (0.149) 0.293 (1.632) 0.094 (0.728)
   Range 0.000 - 0.551 0.034 - 13.006 0.000 - 0.850 0.000 - 13.623 0.000 - 13.623
sIgE_f3 < 0.001
   Mean (SD) 0.001 (0.006) 0.243 (0.361) 0.011 (0.024) 0.067 (0.194) 0.015 (0.090)
   Range 0.000 - 0.080 0.015 - 1.244 0.000 - 0.137 0.000 - 1.332 0.000 - 1.332
sIgE_f4 < 0.001
   Mean (SD) 0.002 (0.014) 0.538 (1.328) 0.107 (0.316) 1.063 (2.256) 0.112 (0.687)
   Range 0.000 - 0.224 0.030 - 7.445 0.000 - 2.275 0.000 - 12.512 0.000 - 12.512
sIgE_f13 < 0.001
   Mean (SD) 0.022 (0.094) 6.986 (25.028) 0.287 (0.859) 1.913 (4.129) 0.411 (4.497)
   Range 0.000 - 0.927 0.017 - 133.659 0.000 - 11.866 0.000 - 23.815 0.000 - 133.659
sIgE_f14 < 0.001
   Mean (SD) 0.001 (0.007) 0.430 (1.026) 0.052 (0.182) 0.704 (2.127) 0.071 (0.601)
   Range 0.000 - 0.160 0.000 - 4.468 0.000 - 1.475 0.000 - 12.386 0.000 - 12.386
sIgE_f17 < 0.001
   Mean (SD) 0.150 (0.435) 1.714 (3.833) 4.567 (5.110) 25.396 (26.534) 2.937 (9.526)
   Range 0.000 - 2.715 0.000 - 17.146 0.000 - 23.778 0.000 - 111.259 0.000 - 111.259
sIgE_f18 < 0.001
   Mean (SD) 0.006 (0.069) 0.068 (0.137) 0.042 (0.217) 0.818 (5.599) 0.069 (1.436)
   Range 0.000 - 1.678 0.000 - 0.585 0.000 - 2.901 0.000 - 46.879 0.000 - 46.879
sIgE_f20 < 0.001
   Mean (SD) 0.008 (0.029) 0.392 (0.776) 0.161 (0.277) 1.179 (2.058) 0.133 (0.625)
   Range 0.000 - 0.343 0.000 - 3.849 0.000 - 1.920 0.000 - 9.959 0.000 - 9.959
sIgE_f36 < 0.001
   Mean (SD) 0.009 (0.028) 0.100 (0.180) 0.082 (0.157) 0.487 (1.335) 0.061 (0.368)
   Range 0.000 - 0.277 0.000 - 0.845 0.000 - 1.051 0.000 - 7.754 0.000 - 7.754
gender2 0.354
   females 408 (57.6%) 16 (51.6%) 149 (55.4%) 33 (47.1%) 606 (56.2%)
   males 300 (42.4%) 15 (48.4%) 120 (44.6%) 37 (52.9%) 472 (43.8%)
age < 0.001
   Mean (SD) 49.324 (15.421) 48.398 (19.396) 44.784 (14.798) 40.863 (12.795) 47.615 (15.443)
   Range 19.266 - 76.656 19.415 - 77.130 19.058 - 76.190 20.741 - 78.075 19.058 - 78.075
bmi2 < 0.001
   Mean (SD) 25.960 (3.499) 28.986 (5.065) 27.843 (5.614) 30.970 (8.239) 26.842 (4.790)
   Range 17.404 - 34.484 19.044 - 38.514 17.915 - 40.083 20.381 - 50.058 17.404 - 50.058
farmlive
    0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%)
   no 637 (90.0%) 29 (93.5%) 238 (88.5%) 64 (91.4%) 968 (89.8%)
   yes 71 (10.0%) 2 (6.5%) 31 (11.5%) 6 (8.6%) 110 (10.2%)
family_allergy_hist < 0.001
   no 347 (49.0%) 8 (25.8%) 98 (36.4%) 22 (31.4%) 475 (44.1%)
   yes 361 (51.0%) 23 (74.2%) 171 (63.6%) 48 (68.6%) 603 (55.9%)
# adding the id variable 
#result_food_uft_DEL_k$ID <- food_data_id$ID 
#write.csv(result_food_uft_DEL_k, "/Users/xbasra/Documents/Data/Clustering_Food_Alergies/CsvData/result_food_uft_DEL_k.csv")

Charachtiristic Analysis

result_as_rh_uft_DEL$cluster <- as.factor(result_as_rh_uft_DEL$cluster)
catdes(result_as_rh_uft_DEL, 16)

Without asthma and Rhinitis Data clusters with DEL (Deep Embedding Clustering layer)

result_no_as_rh_uft_DEL <- read.csv('/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Intermediate/CsvData_Output/result_no_as_rh_uft_DEL.csv')
result_no_as_rh_uft_DEL$farmlive[result_no_as_rh_uft_DEL$farmlive == ""] <- NA
result_no_as_rh_uft_DEL <-  result_no_as_rh_uft_DEL %>% replace_na (list(farmlive = 'no'))
table_no_as_rh_uft_DEL <- tableby(cluster ~ ., data = as.list(result_no_as_rh_uft_DEL))
summary(table_no_as_rh_uft_DEL, title = "Charachtaristcs of Clusters")

Table: Charachtaristcs of Clusters
0 (N=134) 1 (N=14) 2 (N=55) 3 (N=591) Total (N=794) p value
sIgE_f1 < 0.001
   Mean (SD) 0.053 (0.148) 0.017 (0.045) 0.005 (0.019) 0.000 (0.000) 0.010 (0.064)
   Range 0.000 - 0.918 0.000 - 0.149 0.000 - 0.098 0.000 - 0.000 0.000 - 0.918
sIgE_f2 < 0.001
   Mean (SD) 0.059 (0.166) 0.055 (0.156) 0.046 (0.290) 0.000 (0.000) 0.014 (0.106)
   Range 0.000 - 1.091 0.000 - 0.559 0.000 - 2.143 0.000 - 0.000 0.000 - 2.143
sIgE_f3 < 0.001
   Mean (SD) 0.008 (0.018) 0.017 (0.043) 0.004 (0.014) 0.000 (0.000) 0.002 (0.011)
   Range 0.000 - 0.067 0.000 - 0.134 0.000 - 0.065 0.000 - 0.000 0.000 - 0.134
sIgE_f4 < 0.001
   Mean (SD) 0.043 (0.148) 0.254 (0.653) 0.097 (0.462) 0.000 (0.000) 0.019 (0.164)
   Range 0.000 - 1.129 0.000 - 2.031 0.000 - 2.543 0.000 - 0.000 0.000 - 2.543
sIgE_f13 < 0.001
   Mean (SD) 0.046 (0.165) 10.907 (39.964) 0.099 (0.280) 0.000 (0.000) 0.207 (5.315)
   Range 0.000 - 1.596 0.000 - 149.746 0.000 - 1.486 0.000 - 0.000 0.000 - 149.746
sIgE_f14 < 0.001
   Mean (SD) 0.011 (0.047) 0.456 (1.336) 0.028 (0.122) 0.000 (0.000) 0.012 (0.185)
   Range 0.000 - 0.366 0.000 - 4.886 0.000 - 0.728 0.000 - 0.000 0.000 - 4.886
sIgE_f17 < 0.001
   Mean (SD) 0.408 (1.130) 4.284 (10.816) 1.412 (4.447) 0.000 (0.000) 0.242 (1.977)
   Range 0.000 - 7.065 0.000 - 36.193 0.000 - 19.736 0.000 - 0.000 0.000 - 36.193
sIgE_f18 < 0.001
   Mean (SD) 0.007 (0.032) 0.096 (0.248) 0.016 (0.050) 0.000 (0.000) 0.004 (0.039)
   Range 0.000 - 0.322 0.000 - 0.868 0.000 - 0.261 0.000 - 0.000 0.000 - 0.868
sIgE_f20 < 0.001
   Mean (SD) 0.025 (0.073) 0.366 (0.762) 0.067 (0.171) 0.000 (0.000) 0.015 (0.122)
   Range 0.000 - 0.520 0.000 - 2.149 0.000 - 0.849 0.000 - 0.000 0.000 - 2.149
sIgE_f36 < 0.001
   Mean (SD) 0.021 (0.060) 0.140 (0.315) 0.038 (0.121) 0.000 (0.000) 0.009 (0.061)
   Range 0.000 - 0.366 0.000 - 1.081 0.000 - 0.734 0.000 - 0.000 0.000 - 1.081
gender2 0.039
   females 57 (42.5%) 6 (42.9%) 26 (47.3%) 327 (55.3%) 416 (52.4%)
   males 77 (57.5%) 8 (57.1%) 29 (52.7%) 264 (44.7%) 378 (47.6%)
age 0.472
   Mean (SD) 50.340 (15.466) 50.315 (14.955) 47.934 (14.331) 51.261 (15.644) 50.858 (15.512)
   Range 18.379 - 76.877 22.091 - 74.242 19.428 - 74.099 18.146 - 77.746 18.146 - 77.746
bmi2 < 0.001
   Mean (SD) 28.253 (3.789) 37.507 (7.834) 32.104 (3.784) 24.719 (2.772) 26.053 (4.136)
   Range 18.904 - 37.109 22.097 - 46.094 23.356 - 40.164 16.975 - 32.076 16.975 - 46.094
farmlive
    0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%) 0 (0.0%)
   no 112 (83.6%) 13 (92.9%) 48 (87.3%) 507 (85.8%) 680 (85.6%)
   yes 22 (16.4%) 1 (7.1%) 7 (12.7%) 84 (14.2%) 114 (14.4%)
family_allergy_hist 0.978
   no 93 (69.4%) 10 (71.4%) 39 (70.9%) 405 (68.5%) 547 (68.9%)
   yes 41 (30.6%) 4 (28.6%) 16 (29.1%) 186 (31.5%) 247 (31.1%)
# adding the id variable 
#result_food_uft_DEL_k$ID <- food_data_id$ID 
#write.csv(result_food_uft_DEL_k, "/Users/xbasra/Documents/Data/Clustering_Food_Alergies/CsvData/result_food_uft_DEL_k.csv")

Charachtiristic Analysis

result_no_as_rh_uft_DEL$cluster <- as.factor(result_no_as_rh_uft_DEL$cluster)
catdes(result_no_as_rh_uft_DEL, 16)

adding the id varaible

resultft_DEL_all$ID <- food_data_id$ID
result_rand_uft_DEL_k$ID <- rand_food_data_id$ID
result_as_rh_uft_DEL$ID <- as_ri_food_id$ID
result_no_as_rh_uft_DEL$ID <- no_as_ri_food_id$ID
write.csv(resultft_DEL_all,'/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Results/CSVData/resultft_DEL_all_id.csv')
write.csv(result_rand_uft_DEL_k,'/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Results/CSVData/result_rand_uft_DEL_k_id.csv')
write.csv(result_as_rh_uft_DEL,'/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Results/CSVData/result_as_rh_uft_DEL_id.csv')
write.csv(result_no_as_rh_uft_DEL,'/Users/xbasra/Documents/Data/Clustering_Food_Alergies/Results/CSVData/result_no_as_rh_uft_DEL_id.csv')
LS0tCnRpdGxlOiAiUmVzdWx0cyBmb29kIGRhdGEgY2x1c3RlcmluZyBERUwiCm91dHB1dDoKICBodG1sX25vdGVib29rOiBkZWZhdWx0CiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0Ci0tLQoKYGBge3IgbG9hZGxpYiwgaW5jbHVkZT1GQUxTRX0KbGlicmFyeShGYWN0b01pbmVSKQpsaWJyYXJ5KGZhY3RvZXh0cmEpCmxpYnJhcnkoYXJzZW5hbCkKbGlicmFyeShSdHNuZSkKbGlicmFyeShwbG90bHkpCmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMgQWxsIERhdGEgY2x1c3RlcnMgKERlZXAgbGVhcm5pbmcsIERFTCAoRGVlcCBFbWJlZGRpbmcgQ2x1c3RlcmluZyBsYXllcikpCgpgYGB7cn0KREVDX0VtYmVkZGluZyA9IHJlYWQuY3N2KCcvVXNlcnMveGJhc3JhL0RvY3VtZW50cy9EYXRhL0NsdXN0ZXJpbmdfRm9vZF9BbGVyZ2llcy9JbnRlcm1lZGlhdGUvQ3N2RGF0YV9PdXRwdXQvREVDX0VtYmVkZGluZy5jc3YnKQpoZWFkKERFQ19FbWJlZGRpbmcpCmBgYAoKYGBge3J9CnNldC5zZWVkKDEwKQojdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUwgPC0gUnRzbmUoWCA9IEVETF9FbWJlZGRpbmcgLHBlcnBsZXhpdHk9IDIwMCwgaXNfZGlzdGFuY2UgPSBGQUxTRSwgY2hlY2tfZHVwbGljYXRlcyA9IEZBTFNFKQp0c25lX2NvbnZlcnRlZF9mb29kX0RFQyA8LSBSdHNuZShYID0gREVDX0VtYmVkZGluZyAscGVycGxleGl0eT0gMTUwLCBpc19kaXN0YW5jZSA9IEZBTFNFLCBjaGVja19kdXBsaWNhdGVzID0gRkFMU0UpCgp0c25lX2NvbnZlcnRlZF9mb29kX0RFQyA8LSB0c25lX2NvbnZlcnRlZF9mb29kX0RFQyRZICU+JQogIGRhdGEuZnJhbWUoKSAlPiUKICBzZXROYW1lcyhjKCJYIiwgIlkiKSkKCnRzbmVfY29udmVydGVkX2Zvb2RfREVDJGNsIDwtIGZhY3RvcihyZXN1bHRmdF9ERUxfYWxsJGNsdXN0ZXIpCmdncGxvdCh0c25lX2NvbnZlcnRlZF9mb29kX0RFQywgYWVzKHg9WCwgeT1ZLCBjb2xvcj1jbCkpICsgZ2VvbV9wb2ludCgpCgojZ2dwbG90KGFlcyh4ID0gWCwgeSA9IFkpLCBkYXRhID0gdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUMpICArIGdlb21fcG9pbnQoKQpgYGAKCmBgYHtyfQp0c25lX2NvbnZlcnRlZF9mb29kX0RFQ18zZCA8LSBSdHNuZShYID0gREVDX0VtYmVkZGluZyAscGVycGxleGl0eT0gMTUwLCBkaW1zID0gMywgaXNfZGlzdGFuY2UgPSBGQUxTRSwgY2hlY2tfZHVwbGljYXRlcyA9IEZBTFNFKQoKdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUNfM2QgPC0gdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUNfM2QkWSAlPiUKICBkYXRhLmZyYW1lKCkgJT4lCiAgc2V0TmFtZXMoYygiWCIsICJZIiwgIloiKSkKCnRzbmVfY29udmVydGVkX2Zvb2RfREVDXzNkJGNsIDwtIGZhY3RvcihyZXN1bHRmdF9ERUxfYWxsJGNsdXN0ZXIpCgpwIDwtIHBsb3RfbHkodHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUNfM2QsIHggPSB+WCwgeSA9IH5ZLCB6ID0gflosIGNvbG9yID0gfmNsLCBjb2xvcnMgPSBjKCcjQkYzODJBJywgJyMwQzRCOEUnKSkgJT4lCiAgYWRkX21hcmtlcnMoKSAlPiUKICBsYXlvdXQoc2NlbmUgPSBsaXN0KHhheGlzID0gbGlzdCh0aXRsZSA9ICdEaW0xJyksCiAgICAgICAgICAgICAgICAgICAgIHlheGlzID0gbGlzdCh0aXRsZSA9ICdEaW0yJyksCiAgICAgICAgICAgICAgICAgICAgIHpheGlzID0gbGlzdCh0aXRsZSA9ICdEaW0zJykpKQpwCmBgYAoKYGBge3J9CnJlc3VsdGZ0X0RFTF9hbGwgPC0gcmVhZC5jc3YoJy9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0ludGVybWVkaWF0ZS9Dc3ZEYXRhX091dHB1dC9yZXN1bHRmdF9ERUxfYWxsLmNzdicpCiMgcmVwbGFjaW5nIHRoZSBlbXB0eSBzcGFjZSAiIiB2YWx1ZXMgd2l0aCBubyBhcyBkb25lIGluIHRoZSBtYWluIGFuYWx5c2lzIGZpbGUKcmVzdWx0ZnRfREVMX2FsbCRmYXJtbGl2ZVtyZXN1bHRmdF9ERUxfYWxsJGZhcm1saXZlID09ICIiXSA8LSBOQQpyZXN1bHRmdF9ERUxfYWxsIDwtICByZXN1bHRmdF9ERUxfYWxsICU+JSByZXBsYWNlX25hIChsaXN0KGZhcm1saXZlID0gJ25vJykpCiN0c25lX2NvbnZlcnRlZF9mb29kJGNsX0RFTCA8LSBmYWN0b3IocmVzdWx0ZnRfREVMX2FsbCRjbHVzdGVyKQojZ2dwbG90KHRzbmVfY29udmVydGVkX2Zvb2QsIGFlcyh4PVgsIHk9WSwgY29sb3I9Y2xfREVMKSkgKyBnZW9tX3BvaW50KCkKcmVzdWx0ZnRfREVMX2FsbCRjbHVzdGVyIDwtIGFzLmZhY3RvcihyZXN1bHRmdF9ERUxfYWxsJGNsdXN0ZXIpCmBgYAoKYGBge3J9CmRpc3RfcGxvdF9jbHVzdCA8LWZ1bmN0aW9uKG9yaWdpbmFsX2RhdGEsIHNlbGVjdGVkX3ZhcmlhYmxlKXsKICBzZWxlY3RlZF92YXJpYWJsZSA8LSBlbnF1byhzZWxlY3RlZF92YXJpYWJsZSkKICBnZ3Bsb3Qob3JpZ2luYWxfZGF0YSwgYWVzKFVRKHNlbGVjdGVkX3ZhcmlhYmxlKSkpICsgZ2VvbV9kZW5zaXR5KGFlcyhmaWxsID0gZmFjdG9yKGNsdXN0ZXIpKSwgYWxwaGE9MC44KSArCiAgICBsYWJzKHRpdGxlID0gIkRlbnNpdHkgcGxvdCIsCiAgICAgICAgIHN1YnRpdGxlPSJzSWdFX2YxIG9mIHBlcnNvbnMgR3JvdXBlZCBieSBDbHVzdGVycyIsCiAgICAgICAgIGNhcHRpb249IlNvdXJjZTogU291cmNlOiByZXN1bHRzIG9mIEhpZXJhcmNoaWNhbCBjbHVzdGVyaW5nIHdpdGggdHJlZS1iYXNlZCBkaXN0YW5jZSBhbmQgZGlzdGFuY2UgZDEiLAogICAgICAgICB4PSJzSWdFX2YxIiwKICAgICAgICAgZmlsbD0iIyBDbHVzdGVycyIpCn0gCmBgYAoKYGBge3J9CmRpc3RfcGxvdF9jbHVzdChvcmlnaW5hbF9kYXRhID0gcmVzdWx0ZnRfREVMX2FsbCwgc2VsZWN0ZWRfdmFyaWFibGUgPSBhZ2UpCmBgYAoKCiMjIyBEZW5zaXR5IHBsb3Qgc2hvaXdpbmcgdGhlIGFnZSBkaXN0cmlidXRpb24gZm9yIGVhY2ggY2x1c3RlcgpgYGB7cn0KcmVzdWx0ZnRfREVMX2FsbCRjbHVzdGVyIDwtIGFzLmZhY3RvcihyZXN1bHRmdF9ERUxfYWxsJGNsdXN0ZXIpCgphZ2VfZyA8LSBnZ3Bsb3QocmVzdWx0ZnRfREVMX2FsbCwgYWVzKHNJZ0VfZjMpKQphZ2VfcCA8LSBhZ2VfZyArIGdlb21fZGVuc2l0eShhZXMoZmlsbD1mYWN0b3IoY2x1c3RlcikpLCBhbHBoYT0wLjgpICsKICAgIGxhYnModGl0bGU9IkRlbnNpdHkgcGxvdCIsCiAgICAgICAgIHN1YnRpdGxlPSJzSWdFX2YxIG9mIHBlcnNvbnMgR3JvdXBlZCBieSBDbHVzdGVycyIsCiAgICAgICAgIGNhcHRpb249IlNvdXJjZTogU291cmNlOiByZXN1bHRzIG9mIEhpZXJhcmNoaWNhbCBjbHVzdGVyaW5nIHdpdGggdHJlZS1iYXNlZCBkaXN0YW5jZSBhbmQgZGlzdGFuY2UgZDEiLAogICAgICAgICB4PSJzSWdFX2YxIiwKICAgICAgICAgZmlsbD0iIyBDbHVzdGVycyIpCgpnZ3Bsb3RseShhZ2VfcCkKYGBgCgoKYGBge3J9CmcgPC0gZ2dwbG90KHJlc3VsdGZ0X0RFTF9hbGwsIGFlcyhibWkyKSkgKyBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNwZWN0cmFsIikKcyA8LSBnICsgZ2VvbV9oaXN0b2dyYW0oYWVzKGZpbGw9ZmFjdG9yKGNsdXN0ZXIpKSwgCiAgICAgICAgICAgICAgICAgICBiaW5zPTUsIAogICAgICAgICAgICAgICAgICAgY29sPSJibGFjayIsIAogICAgICAgICAgICAgICAgICAgc2l6ZT0uMSkgKyAgICMgY2hhbmdlIG51bWJlciBvZiBiaW5zCiAgbGFicyh0aXRsZT0iSGlzdG9ncmFtIHdpdGggRml4ZWQgQmlucyIsIAogICAgICAgc3VidGl0bGU9IkFnZSBhY3Jvc3MgZGlmZmVyZW50IGNsdXN0ZXJzIiwKICAgICAgIHg9IkFnZSIsCiAgICAgICAgIGZpbGw9IiMgQ2x1c3RlcnMiKSAKCmdncGxvdGx5KHMpCmBgYAoKYGBge3J9CnRhYmxlX3VmdF9ERUxfYWxsIDwtIHRhYmxlYnkoY2x1c3RlciB+IC4sIGRhdGEgPSBhcy5saXN0KHJlc3VsdGZ0X0RFTF9hbGwpKQpzdW1tYXJ5KHRhYmxlX3VmdF9ERUxfYWxsLCB0aXRsZSA9ICJDaGFyYWNodGFyaXN0Y3Mgb2YgQ2x1c3RlcnMiKQojIGFkZGluZyB0aGUgaWQgdmFyaWFibGUgCiNyZXN1bHRfZm9vZF91ZnRfREVMX2skSUQgPC0gZm9vZF9kYXRhX2lkJElEIAojd3JpdGUuY3N2KHJlc3VsdF9mb29kX3VmdF9ERUxfaywgIi9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0NzdkRhdGEvcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rLmNzdiIpCmBgYAoKCgojIyBDaGFyYWNodGlyaXN0aWMgQW5hbHlzaXMKYGBge3IsIHdhcm5pbmc9RkFMU0V9CnJlc3VsdGZ0X0RFTF9hbGwkY2x1c3RlciA8LSBhcy5mYWN0b3IocmVzdWx0ZnRfREVMX2FsbCRjbHVzdGVyKQpjYXRkZXMocmVzdWx0ZnRfREVMX2FsbCwgMTYpCmBgYAoKCgojIFJhbmRvbSBEYXRhIGNsdXN0ZXJzIHdpdGggREVMIChEZWVwIEVtYmVkZGluZyBDbHVzdGVyaW5nIGxheWVyKQoKYGBge3J9CiNyZXN1bHRfcmFuZF91ZnRfREVMX2sgPC0gcmVhZC5jc3YoIi9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0ludGVybWVkaWF0ZS9Dc3ZEYXRhX091dHB1dC9yZXN1bHRfcmFuZF9mb29kX3VmdF9ERUxfay5jc3YiKQpyZXN1bHRfcmFuZF91ZnRfREVMX2sgPC0gcmVhZC5jc3YoIi9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0ludGVybWVkaWF0ZS9Dc3ZEYXRhX091dHB1dC9yZXN1bHRfcmFuZF91ZnRfREVMX2suY3N2IikKcmVzdWx0X3JhbmRfdWZ0X0RFTF9rJGZhcm1saXZlW3Jlc3VsdF9yYW5kX3VmdF9ERUxfayRmYXJtbGl2ZSA9PSAiIl0gPC0gTkEKcmVzdWx0X3JhbmRfdWZ0X0RFTF9rIDwtICByZXN1bHRfcmFuZF91ZnRfREVMX2sgJT4lIHJlcGxhY2VfbmEgKGxpc3QoZmFybWxpdmUgPSAnbm8nKSkKdGFibGVfcmFuZF91ZnRfREVMX2sgPC0gdGFibGVieShjbHVzdGVyIH4gLiwgZGF0YSA9IGFzLmxpc3QocmVzdWx0X3JhbmRfdWZ0X0RFTF9rKSkKc3VtbWFyeSh0YWJsZV9yYW5kX3VmdF9ERUxfaywgdGl0bGUgPSAiQ2hhcmFjaHRhcmlzdGNzIG9mIENsdXN0ZXJzIikKIyBhZGRpbmcgdGhlIGlkIHZhcmlhYmxlIAojcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rJElEIDwtIGZvb2RfZGF0YV9pZCRJRCAKI3dyaXRlLmNzdihyZXN1bHRfZm9vZF91ZnRfREVMX2ssICIvVXNlcnMveGJhc3JhL0RvY3VtZW50cy9EYXRhL0NsdXN0ZXJpbmdfRm9vZF9BbGVyZ2llcy9Dc3ZEYXRhL3Jlc3VsdF9mb29kX3VmdF9ERUxfay5jc3YiKQpgYGAKCiMjIENoYXJhY2h0aXJpc3RpYyBBbmFseXNpcwpgYGB7ciwgd2FybmluZz1GQUxTRX0KcmVzdWx0X3JhbmRfdWZ0X0RFTF9rJGNsdXN0ZXIgPC0gYXMuZmFjdG9yKHJlc3VsdF9yYW5kX3VmdF9ERUxfayRjbHVzdGVyKQojcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rIDwtIHJlc3VsdF9mb29kX3VmdF9ERUxfa1stYygxLDIsMjApXQpjYXRkZXMocmVzdWx0X3JhbmRfdWZ0X0RFTF9rLCAxNikKYGBgCgojIFdpdGggYXN0aG1hIGFuZCBSaGluaXRpcyBEYXRhIGNsdXN0ZXJzIHdpdGggREVMIChEZWVwIEVtYmVkZGluZyBDbHVzdGVyaW5nIGxheWVyKQoKYGBge3J9CnJlc3VsdF9hc19yaF91ZnRfREVMIDwtIHJlYWQuY3N2KCcvVXNlcnMveGJhc3JhL0RvY3VtZW50cy9EYXRhL0NsdXN0ZXJpbmdfRm9vZF9BbGVyZ2llcy9JbnRlcm1lZGlhdGUvQ3N2RGF0YV9PdXRwdXQvcmVzdWx0X2FzX3JoX3VmdF9ERUwuY3N2JykKcmVzdWx0X2FzX3JoX3VmdF9ERUwkZmFybWxpdmVbcmVzdWx0X2FzX3JoX3VmdF9ERUwkZmFybWxpdmUgPT0gIiJdIDwtIE5BCnJlc3VsdF9hc19yaF91ZnRfREVMIDwtICByZXN1bHRfYXNfcmhfdWZ0X0RFTCAlPiUgcmVwbGFjZV9uYSAobGlzdChmYXJtbGl2ZSA9ICdubycpKQp0YWJsZV9hc19yaF91ZnRfREVMIDwtIHRhYmxlYnkoY2x1c3RlciB+IC4sIGRhdGEgPSBhcy5saXN0KHJlc3VsdF9hc19yaF91ZnRfREVMKSkKc3VtbWFyeSh0YWJsZV9hc19yaF91ZnRfREVMLCB0aXRsZSA9ICJDaGFyYWNodGFyaXN0Y3Mgb2YgQ2x1c3RlcnMiKQojIGFkZGluZyB0aGUgaWQgdmFyaWFibGUgCiNyZXN1bHRfZm9vZF91ZnRfREVMX2skSUQgPC0gZm9vZF9kYXRhX2lkJElEIAojd3JpdGUuY3N2KHJlc3VsdF9mb29kX3VmdF9ERUxfaywgIi9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0NzdkRhdGEvcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rLmNzdiIpCmBgYAoKIyMgQ2hhcmFjaHRpcmlzdGljIEFuYWx5c2lzCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQpyZXN1bHRfYXNfcmhfdWZ0X0RFTCRjbHVzdGVyIDwtIGFzLmZhY3RvcihyZXN1bHRfYXNfcmhfdWZ0X0RFTCRjbHVzdGVyKQpjYXRkZXMocmVzdWx0X2FzX3JoX3VmdF9ERUwsIDE2KQpgYGAKCgojIFdpdGhvdXQgYXN0aG1hIGFuZCBSaGluaXRpcyBEYXRhIGNsdXN0ZXJzIHdpdGggREVMIChEZWVwIEVtYmVkZGluZyBDbHVzdGVyaW5nIGxheWVyKQoKYGBge3J9CnJlc3VsdF9ub19hc19yaF91ZnRfREVMIDwtIHJlYWQuY3N2KCcvVXNlcnMveGJhc3JhL0RvY3VtZW50cy9EYXRhL0NsdXN0ZXJpbmdfRm9vZF9BbGVyZ2llcy9JbnRlcm1lZGlhdGUvQ3N2RGF0YV9PdXRwdXQvcmVzdWx0X25vX2FzX3JoX3VmdF9ERUwuY3N2JykKcmVzdWx0X25vX2FzX3JoX3VmdF9ERUwkZmFybWxpdmVbcmVzdWx0X25vX2FzX3JoX3VmdF9ERUwkZmFybWxpdmUgPT0gIiJdIDwtIE5BCnJlc3VsdF9ub19hc19yaF91ZnRfREVMIDwtICByZXN1bHRfbm9fYXNfcmhfdWZ0X0RFTCAlPiUgcmVwbGFjZV9uYSAobGlzdChmYXJtbGl2ZSA9ICdubycpKQp0YWJsZV9ub19hc19yaF91ZnRfREVMIDwtIHRhYmxlYnkoY2x1c3RlciB+IC4sIGRhdGEgPSBhcy5saXN0KHJlc3VsdF9ub19hc19yaF91ZnRfREVMKSkKc3VtbWFyeSh0YWJsZV9ub19hc19yaF91ZnRfREVMLCB0aXRsZSA9ICJDaGFyYWNodGFyaXN0Y3Mgb2YgQ2x1c3RlcnMiKQojIGFkZGluZyB0aGUgaWQgdmFyaWFibGUgCiNyZXN1bHRfZm9vZF91ZnRfREVMX2skSUQgPC0gZm9vZF9kYXRhX2lkJElEIAojd3JpdGUuY3N2KHJlc3VsdF9mb29kX3VmdF9ERUxfaywgIi9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0NzdkRhdGEvcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rLmNzdiIpCmBgYAoKIyMgQ2hhcmFjaHRpcmlzdGljIEFuYWx5c2lzCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQpyZXN1bHRfbm9fYXNfcmhfdWZ0X0RFTCRjbHVzdGVyIDwtIGFzLmZhY3RvcihyZXN1bHRfbm9fYXNfcmhfdWZ0X0RFTCRjbHVzdGVyKQpjYXRkZXMocmVzdWx0X25vX2FzX3JoX3VmdF9ERUwsIDE2KQpgYGAKCgoKCiMgYWRkaW5nIHRoZSBpZCB2YXJhaWJsZQpgYGB7cn0KcmVzdWx0ZnRfREVMX2FsbCRJRCA8LSBmb29kX2RhdGFfaWQkSUQKcmVzdWx0X3JhbmRfdWZ0X0RFTF9rJElEIDwtIHJhbmRfZm9vZF9kYXRhX2lkJElECnJlc3VsdF9hc19yaF91ZnRfREVMJElEIDwtIGFzX3JpX2Zvb2RfaWQkSUQKcmVzdWx0X25vX2FzX3JoX3VmdF9ERUwkSUQgPC0gbm9fYXNfcmlfZm9vZF9pZCRJRAp3cml0ZS5jc3YocmVzdWx0ZnRfREVMX2FsbCwnL1VzZXJzL3hiYXNyYS9Eb2N1bWVudHMvRGF0YS9DbHVzdGVyaW5nX0Zvb2RfQWxlcmdpZXMvUmVzdWx0cy9DU1ZEYXRhL3Jlc3VsdGZ0X0RFTF9hbGxfaWQuY3N2JykKd3JpdGUuY3N2KHJlc3VsdF9yYW5kX3VmdF9ERUxfaywnL1VzZXJzL3hiYXNyYS9Eb2N1bWVudHMvRGF0YS9DbHVzdGVyaW5nX0Zvb2RfQWxlcmdpZXMvUmVzdWx0cy9DU1ZEYXRhL3Jlc3VsdF9yYW5kX3VmdF9ERUxfa19pZC5jc3YnKQp3cml0ZS5jc3YocmVzdWx0X2FzX3JoX3VmdF9ERUwsJy9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL1Jlc3VsdHMvQ1NWRGF0YS9yZXN1bHRfYXNfcmhfdWZ0X0RFTF9pZC5jc3YnKQp3cml0ZS5jc3YocmVzdWx0X25vX2FzX3JoX3VmdF9ERUwsJy9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL1Jlc3VsdHMvQ1NWRGF0YS9yZXN1bHRfbm9fYXNfcmhfdWZ0X0RFTF9pZC5jc3YnKQpgYGAKCgoKCgoKCgoKCgoKCgoKCgoKCg==